patch 



pbb 

pfib 
pdb 
&Sb 



DEC-12-YU2A-D 
March, 1970 



Copyright(c?) 1970 by Digital Equipment Corporation 



Specifications contained in this manual are for 
general information only. Actual specifications 
are subject to change without notice. The draw- 
ings, specifications, and descriptions herein are 
the property of Digital Equipment Corporation and 
shall not be reproduced or copied or used in whole 
or in part as the basis for the manufacture or 
sale of items without written permission. 



The following are registered trademarks of Digital 
Equipment Corporation, Maynard, Massachusetts 

DEC PDP 

FLIP CHIP FOCAL 

DIGITAL COMPUTER LAB 

The equipment described herein is covered by patents 
and patents pending. 



1.0 INTRODUCTION 



The PATCH program will modify any location in any TBLK on 
tape unit 1. Its primary function is to provide a method for 
making small patches to LINCtape binaries. For example, PATCH 
can be used to modify load and go arguments in a LAP6-DIAL 1 
binary header TBLK. Because PATCH converses with the user 
via QANDA , an understanding of QANDA conventions is necessary 
before using PATCH. Refer to DEC-12-FISA-D for that information. 

2 . 0 HARDWARE REQUIREMENTS 

The minimum configuration is a PDP-12B. 

3 . 0 CORE USAGE 

PATCH uses MBLKs 0,2, and 3 of segment 2 and MBLK 4 of seg- 
ment 3. The starting address is 4020. 

4.0 L OADING PROCEDURE 

PATCH is loaded by the command 
>L0 PATCH, UNIT ) 

The tape to be modified must be on transport unit 1; it can 
be placed on unit 1 either before or after loading PATCH. PATCH 
is a load and go program. 



1 LAP6-DIAL is hereafter referred to as DIAL. 
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5.0 SENSE SWITCH OPTIONS 



Raising Sense Switch 0 causes PATCH to return to DIAL. 
Therefore, MAKE SURE SENSE SWITCH 0 IS DOWN BEFORE LOADING PATCH. 

6 . 0 QANDA DIALOG UE 

PATCH will query the user by presenting him with 4 suc- 
cessive scope messages . All input is from the Teletype 1 and 
output is to both the scope and the Teletype. Pressing LINE 
FEED causes the program to advance to the next message in se- 
quence. There is no option to repeat the displayed messages. 

All input must be octal and must be three or four digits, 
as appropriate. Leading zeros, if any, are required. RUBOUT 
will delete the previous characters typed, one at a time. 

6.1 MESSAG E 1 

When PATCH is started, it displays the following message: 
TBLK 

At this point the user types in the number of the tape 
block to be modified. 



1 Teletype is the registered trademark of the Teletype Cor- 
poration. 
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Whan the LINE FEED key is pressed, PATCH will read in the re- 
quested TBLK. If the input is not octal, the message is redis- 
played . 



6.2 MESSAGE 2 



The next message is 
LOC 

Now the user must type in a value between 000 and 377 
to specify which word within the TBLK is to be modified. If 
the value is not between 0-377, the message will be redisplayed. 
Location 000 is defined as the first word in the TBLK; location 
377 is defined as the last word in the TBLK. When the LINE 
FEED key is pressed, PATCH retrieves the contents of the 
requested location and displays them in the next message. 
If non-octal characters are typed, "LOC" is redisplayed. 

6.3 M ESSAGE 3 

OLD VAL X 1 X 2 X 3 X 4 
NEW VAL 



X 1^2 X 3 X 4 *"^ e curren t contents of the requested loca- 
tion. The user may now type in the change. If, upon examina- 
tion, no change is to bo made, retype the old value as the new 
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value input, followed by LINE FEED. When LINE FEED is pressed , 
NEW VAL will replace OLD VAL in core. If an error was made in 
TBLK , simply type LINE FEED or some non-octal characters follow- 
ed by LINE FEED. The first display (TBLK _ _) will reappear. 
(Note that any previous changes made in core up to this point 
will not be written onto the tape.) 

6 . 4 MESSAGE 4 
DO 

1 WRITE 

2 MORE CHANGES 

If the user types LINE FEED or any key other than 1 followed 
by LINE FEED, PATCH returns to message 2 to accept more changes 
within the same TBLK. If option 1 is requested, all the changes 
up to that point are written out on the requested TBLK and PATCH 
goes back to message 1. The program can be aborted at any point 
and reinitialized by stopping and restarting at 4020. A return 
to DIAL can be effected while any display is active simply by 
raising Sense Switch 0. 
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0000 






#20 




0001 






/LINC TAPE PAT CHER ( PATCH) - - - 


0002 






/ALLOWS USER TO MODIFY 




0003 






/ANY WORQ ON ANY TBLK 


OF UNIT 1 


0004 






/ADO QANOA BEFORE ASSEMBLY 


0005 






/ c mad ~> a 
fZ> ~AK r to 




0006 


00 20 


1020 


i n a t 
L U A I 


f U U J \U 


0007 


00 21 


0020 


C.V 


/oDrirT 
/rntaL 1 


0010 


00 22 


00 04 


Lor 




0011 


0023. 


06 43 


LUr 0 




0012 


00 2 4 


60o2 


ctadt . m o urcci 
b I An i » j"r ncoai. 




0013.. . 


0025 


6057 


JMr nt-oat 




0014 


0026 


6137 


lun u r c C "X 

Jri r nfc, 23 0 




0015 


0027 


6160 


I u O UPOC4 

JMr nLao^ 




0016 


0030 


6024 


i si o C T A D T 




0017 


0 0 31 


6024 


i u n CT A D T 

Jnr bTAru 




0020 










0021 








/TDi <J _ _ _ 


0022 


0032 


1000 


Mcbbl » LuA 




0023 


00 33 


0000 . 


0 


/R TN 


0024 


0034 


4056 


STC XITMS1 


/JMr 


00 25 


00 35 


7000 


Jnr QA I N l 1 




0026 


00 36 


0242 


T v T1 




0027 


0037 


0307 


A M C *! 

AN bl 




0030 


00 40 


6130 


Jn r JH n>5 IMa 


/r uu CCUi 0! 1 1 pn M 
/ w n ft OvJW » UruiN 


0031 








/qtki rpflM ft A m n A 
/ n 1 IN r nun u* NU A 


0032 








/urpr ww cm nnwr 

' ntnt nrlC.nl U Unl u 


0033 . 


00 41 


1020 


i n a T 
LUA 1 


/DTD Tf) 


0034 


0042 


0307 




' f w b» (N 


0035 


0043 


6200 


imp nrronr 

w i ' r . U L w v u C. 


/rVRT TO OCTAL 


0036 


0044 


6024 


IMP QTiRT 

Jnr 3 I nn I 


/not nfTAi 


0037 


0045 


1000 


t Pi A 

LDA 


/ n UL Ub 


0040 


0046 


0241 


a (Lip Li n 


/ T fit M 


0041 


00 47. 


1620 


DOC. i 


/ M Q| 1/ / 

/ n DU ft t 


0042 


0050 


4000 


A Oi 0\ 




0043 


0051 


1040 


C T A 

b I A 




0044 


0052 


30 55 


T nuni 

i pwui 


/or An 

/ K t. A U 


2045 




4176 


0 I U I r n U <£ 


/ "n i 1 c 


0046 


03 54 


0710 


ft u u u 




0047 


0055 


0000 


I r tN U 1 » i<y 




0050 


0 0 56 


00 00 


V ! TMC1 . (ft 




0051 










0052 








/i nc - 


0053 


00 57 


10 00 


MLbb<c» LDA 




00 54 


00 60 


00 00 


r> 

a 




00 55 


20 61 


4127 


b i L X 1 I n b<d 


/jnr 


0056 


00 62 


/0 00 


iij □ ft A T M T T 
JMr U A I IN 1 1 




0057 


.0063 


0246 


T V T O 

T X T t 




0060 


00 6 4 


0312 


A N S 2 




0061 


0065 


6130 


IMP P hI K <> N C 




0062 


0 0 66 


1020 


l_ J M 1 


/PTR TO 


0063 


0 0 6 7 


0312 




' U J J 


00 64 


i-070 


6200 


jnr Ut u Jut 




00o5 


0 a 7 1 


60 25 


IW3 C T A P T -t 1 
Jnr 3 I An I + J. 


/•n n t n pt ai 


00 6 6 


00 7 2. 


.L0 00 


i Pi A 

L J A 


'HULU3 LUl 


00 67 


00 7 3 


0241 


A i ISj S W D 


/on t n 


0373 


00 74 


1120 


<\ f A T 
A_ A 1 




0071 


. 0075 


7 4 0|6 


-377 




00 72 


02 76 


0471 


APO I 




00 7 3 


20 7 7 


60 25 


JMP START+1 




00 74 


0 1 0 0 


1120 


AO A I 


/2000 


0075 


0101 


c <> 1 7 


2000*377 





0171 7 A 


010? 

If J. w C 


10 40 






/SAVE 


G50 77 


01 03 


0233 




U w w 


/HERE 


]£J X It' lu 


0104 


4016 








01 01 


01 05 


00 77 




SFT T 17 


/PTR TO OLD 


(7! 1 0 P 
ly X =7 <£ 


010ft 
t/ X vl v 


0256 




TX T3 + 4 


/VAL WD 


ft 1 fTi 3 
Ju X iy O 


01 0 7 


1016 

x <y x v 




LD A 16 

W u n Xv 


/OLD- VAL TO AC 


CI1 04 


0110 


00 76 




Jt 1 i Ay 


/CVRT TO DIAL 


511 05 


0 111 
:t* X x x 


77 73 




-4 


/CODES FOR 


ft 1 1/1 A. 


0 1 1 2 

16 X X c - 


4^32 




c t r TFMP 


/Q ANDA 


(711 C!7 
io X <o > 


01 13 

v X X V 


1000 


LOOP > 


LD A 




ft 1 1 0 
iy X A I-* 


0114 

X X ^ 


3232 




TEMP 




£711 1 1 
WX J- X 


0115 

it. X — J 


0243 




Rm 3 

r\ u U w 


/I D I G 7 T AT 


,9! 1 1 9 


011ft 
YJ X X w 


42 32 




STC TEMP 


/a time 


0 1 1 1 
xJ X A V 


0117 

It ' X X ' 


22 32 




ADD TEMP 




1711 1 4 
U J- X ^ 


0120 


1^60 




BCL I 




0 1 1 5 


01 21 

C' 1. ft* -L 


77 70 




7770 




01 1 ft 
iy J- X o 


0122 


11 20 




ADA I 




ft 1 1 7 
0 X X / 


it/ X C. O 


0 0 ft 0 




60 




Bi CIO 


01 P 4 

V X £ ~ 


13 77 
X w / / 




■j I n i i/ 


/PUT IN QANDA 


kJ X x 










/TEXT STRING 




ft1 P5 
& X <£ 9 


02 36 




XSK T 16 


/DONE ? 


IflXtO 


0 * Pft 

t.' X S- o 


6113 




imp 1 n n p 


/NO 


fTi 1 OA 

k3 1 <L *t 


i/i 1 P 7 


7!0 00 
s--' U Yj xJ 


A 1 1 1 1 O C P 


0 
IC 


/YES RTN 


(71 1 9 Cn 

k2 X <i 3 


013 0 


04 40 




SN s 0 


/BACK TO DIAL ? 




0 131 
If iui 


i & J \j 




IMP QARP'SH 


/NO REFRESH 












/MESSAGE 


i?, 13 0 


0 1 1 2 

<J X O s*- 


0076 




crT T 16 

0 U 1 i. X w 




1711 31 

&X OX 


01 33 


07 P1 




RC G I 




(7i1 t:P 


01 "^4 

tJ x. o ■ 


00 77 




SE T I 17 




/5ii 3 3 

£J J. o ^ 


01 ^5 


73 00 

/ ill t J 




73 00 




0 X 0 "i 


Bi OD 


ft0 1 ft 

u ^ X w 




IMP 16 

sii i r X" 


/GO EDITOR 


fay 1 03 










/D ISPL AY 


til 00 










/OLD VAL XXXX 


01 37 

Ik A "J / 










/NEW VAL 


"11 4(71 
t) X t i" 


01 37 
j. w 7 


10 00 


ME SS 3 } 


LD A 




«J A ~ X 


01 4 0 
C' -i. ~ tJ 


00 00 




0 


/RTN 


!7M 4 P 


0 i 4 1 

r.' X " X 


4157 




STC XITMS3 


/JMP 


0 1 4 3 
t» x " o 


'.1 14 9 


7 0 00 




IMP 0 A I N 1 T 




01 4 4 


? 1 4 0' 


0 2 5 2 




TX T 3 




014 5 
*J X " 


014 4 


03x5 




AN S3 




i7l1 4ft 

til 


0 1 4 5 


6130 




jwp CHKSNS 

M r UH 'W liw 




ft 1 4 7 
16 X ** ' 


0 14ft 


1020 




U 1 4 


/PTR TO 




■1 1 4 7 

x ■ ' 


0 3i5 




A M S 3 


./NEW VAL 


ft 1 H 1 
ft X v X 


'« 1 "J '1 

_L V * ■ 


6 ? 0 0 




imp iiFfOnE 


/CVRT TO OCTAL 


0 1 5 P 
»J 1 V C 


01 5 1 


00 24 




JMP START 


/NOT OCTAL 


X P J 


>.. .i > <- 


1 3 0 0 




L 0 A 




i,'19t 


i. x > ^ 


;1 2 41 




A N S W 0 


/HOLDS NEW VAi 


t ■ i p p 


v- X ^ M 


0 0 5 6 




SET 16 


/PTR TO 


f? IRA 


•1 1 -i S 


02 33 




i on 

L. w v 


/LOC 


,' 1 S 7 


f.»1 h*j 


1 J 5 6 




STA 16 


/CHANGE IS IN 


■ 1 « A ft 
X O 


• -n c; 7 


00 00 


A 1 1 M J O t 


0 




*J x u x 










/D ISPLAY 


;» 1 A 9 










/DO - 


u _ & 0 










/ 1 WRITE 


v--' 1 V ^ 










/2 MORE CHANGES 


i.' ~ o ^ 




10 0 0 


M E S S 4 , 


lo a 






' 1 ft 1 


:?' 0 SI ;7j 




0 




v j. u ' 


t X >-' '■■ 


41 7 7 




STC X I T M S 4 




n -i T ,* 

t> X .' » 


') 


7 0 20 




imp Q A I N I T 




0 i 7 1 


O 4 


0 2 6 7 




TXT4 




•->', 7 J 
(.■ X i £ 


j To p 


0 3 2 0 




:\ S 4 




X ' 0 


»' 1 6o 


t> 1 3 0 




jmR CHKSNS 




.Jiil. 7 4 


-- - Jl A 7 


'1 -1 -» 




C C T ? 17 





0175 


0170 


0320 




ANS4 






0176- 




1337 




uOH 


I 17 . 




0177 


0172 


1460 




SAE 


! 




0200 


Z173. 


00 61 




61 






£/ C X 


0174 


6025 




JMP 


START*! 




0202 


0175 


0714. 




WRC 


u 


/WRITE IT OUT 


2203 

C« tJ 


0176 


33 00 


TPWD2» 


0 






2204 


2 1 11 


00 00 


X I TMS4 , 


0 




/RTN 


7 7 0 S 












/STRIP DIAL 


0?!?! A 












/CODES AND 


02 0 7 












/CONVERT TO 1 


2210 












/PACKED WORD 








/SKP RTN IF 


OCTAL 




0? 12 

1C 












/PTR TO CODES 


0213 












/IS IN AC 


0214 


.0200 


00,56 


nr co df i 


SE T 


16 


/RTN 


0215 


0201 


0000 




0 




/JMP 


0216 


0202 


4017 




STC 


17 




0 217 


0 20 3 


4241 




STC 


answd 




2220 


0 2 0- 


0236 




XSK 


I .16 


/ASSUME ITS OK 


2221 


0205 


1337 


NXTCHR ♦ 


LDH 


I 17 


/GET A CODE 


0222 


0206 


1420 




SHD 


I 




0223 


0207 


7 4 013 




7-4 00 




/DONE ? 


0224 


0210 


6016 




JMP 


16 


/YES 


0225 


0211 


1420 




SHO 


I 




0226 


0212 


3400. 




3400 




/DONE ? 


0227 


0213 


6016 




JMP 


16 


/YES 


0230 


0214 


1560 




BCL 


I 


/I DIGIT 


0231 


0215 


7770 




7770 




/ONLY 


0232 


0216 


4232 




STC 


TEMP 


/SAVE 


0233 


221? 


2241 




ADD 


ANSWQ 


/OLD RESULT 


0234 


0 220 


0243 




ROU 


3 


/MOVE OVER 


0235 


2 2 21 


2232 




ADD 


TEMP 


/UPDATE 


0236 


0222 


4 24.1 




STC 


ANSWQ 


/NEW RESULT 


0237 


0223 


1317 




LDH 


17 


/CHK THAT ITS OCTAL 


02 40 


?. 2 2 4 


1560 




3CL 


I 




0241 


22 25 


7707 




7707 






024 2 


0226 


1460 




SAE 


I 




02 4 3 


2 221 


006 0 




0060 






0244 


2 0 30 


6234 




JMP 


LQCF IX 


/NOT OCTAL 


0245 


02 31 


6205 




JMP 


NXTCHR 




0246 


0 2 3 2 


0000 


TEMP , 


0 






02 4 7 


•"J - s 4 

v- : C w ^ 


0000 


10 C » 


0 






0250 


02 34 


10 20 


LQCF I X ♦ 


lda 


I 




02 51 


2 2 35 


77 7 6 




-1 






02 52 


02 36 


2016 




ADD 


16 


/RTN TO PC+1 


02.53 


*■ 2 37 


4016 




STC 


16 


/VS PC+2 


0254 




6316 




JMP 


16 




0 2 55 


02 41 


00 00 


ANSWDi 


0 






2256 


0 24 2 


0 62 4 










02 56 


0 0 4-0 


0214 










2 2 56 


0 0 4" 


1374 










22 56 


0 2 45 


6334 










0256 






TXT1, 


TEXT 


EFTBLK<3\Z 




3 2 5 7 
0257 


2 04? 


0 514 
1703 










02 5 7 


. ' c y «.. ; 


7^63 










02 5 7 


..'251 


3 4 00 










02 57 






TXT2, 


TEXT 


2FL0C<3\2 




0260 


0252 


0617 










02 60 


«' 2 5 3 


14 04 










02 60' 


0254 


40 2 6 










0260 


0255 


0114 











02 60 
0260 
MM 

0261 
02 61 
0261 
0261 
02 61 
0261 
0261 
.02 62 
0262 
0262 
0263 
0263 
0263 
.0263 
0263 
0264 
0264 

ITS O '- * 
tJ i. U -i 

0264 
0264 
0264 
0264 
02 64 
02 64 
02 64 
0265 
02 66 
0267 
02 70 
0271 
02 72 
0273 
0274 
0275 
0276 

02 77 

03 00 
0301 
0302 
03 03 
03 04 
03 05 
0306 
0307 
0310 
0311 
0312 
0313 
0514 
0315 
0316 
3 317 
0 3 20 
0 321 
0322 
3323 
0324 



0257 

0260 
0261 
0262 
0263 
0264 
-265 
0266 

02 6 7 
0270 

0271 
55272 
0273 
02 7 4 

02 7 5 
S276 

02 77 

0301 
0302 
0303 
0304 
£305 

03 06 

03 07 

0311 
0312 
0313 
0314 
0315 
0316 
^317 
0320 
23 21 
03 22 



1 0 e 0 

1 c t 1 

1 0 0 0 

1003 



4040 
4040 

4043 
0616 
05 27 
4026 
0114 
7464 
3400 

0604 
1774 

6143 
0661 
4027 
2211 

24 05 

.4306 
6240 
1517 
22 05 

4 0 03 
1001 
1607 

05 23 
34 00 

0000 
0000 
0000 

00 00 
00 00 
0000 
0000 

0000 
0 0 00 

0: 0 0 0 
0000 
0 2 0 0 



TXT3 f TEXT ?F010 VAL 



o 



1*20 
-0 0 2 
0000 
1*63 

0 0 0 0 

32S0 
4 3 5*1 



FNEW VAl<4\2 



TX74, TEXT 2FD0<1 



Fl WRITE 



F2 MORE 
ANSI , 



ANS2 



ANS3 



AN $4 , 



CH ANGESNg 

0 
0 
0 
0 
0 
0 
0 
0 

0 

0 

2 
0 



AAAENO » 
/ADD QANOA 
/ASSEMBLE 

/DO SB PATCH,UNIT,L<CR> 

/5 MAR 7 0 

/ Q A N D A SUBROUTINE FOR THE 
/POP-12 

/REMOVE *100 0 BELOW IF 
/INSERTING SOURCE DIRECTLY 
/INTO YOUR PROGRAM SOURCE 
•1000 /REMOVE, IF DESIRED 



QA IN IT, 



QAB 



HERE TO INITIALISE "HE ROUTINE 

/SAVE JMP RETURN 



LOA 
? 

ADO 
ST A 

ADD 
STC 



I 

0 
I 

0Al*3 

1 

1 



/JMP 



+ 3 



/PTR TO FIRST PARAM 
/GET FIRST PARAM 



0326 


1010 


3264 


ADD 


QAQ + 1 




/PTR TO HALFWQRD-1 


032 7 


1011 


5057 


STC 


QAG-3 






03 30 


1012 


1021 


LDA 


I 1 








X «../ -4 v) 


5?i 5 5 


STC 


QARFSH 


-1 


/XR6 USED AS A SWI TCH, «0 IF NO ANSWER FIELD* =1777 


it) o o c 


* 16 j» ™ 


4 3 W 6 

^ iJ XJ W 


STC 


6 




3 33 


10 15 


0043' 


QACA , SET 


3 /XR3 


TO PTR TO ANSWERS 


w l 1 4 
k; o o ' 


1016 


10 52 


QARFSH-1 






03 35 


1017 


00 44 


SET 


4 




/XR4 TO PTR TO QUESTIONS 


iiOJu 


1 2 2 0 


1057 


QAG = 


•3 






i/i 1 3 7 

v <J 1 












/TO HERE IF FIRST TIME THROUGH OR FOLLOWING A CR 


0340 


1021 


0041 


SF T 


1 






0341 


1022 


0 0 24 


4 








0342 


102 3 


7 2 70 


IMP 


QA T 






0 4 1 


10 24 


0316 


m n 0 






/F 


03 44 


10 25 


13 24 


L J n 


T A 




/H, BUMP PTR IF H OR F 


0345 


13 26 


72 3.1 


JA u 1 Jrl r 


U A U 






03 46 


I n 2 7 


7035 


1 V! D 

Jnr 


t * 0 




/74 


03 47 


1030 


7 0 50 


K P 

j 1 ! r. 


Q AF 

ui M U 




/34 


03 50 


10 31 


14 60 


S AE 






/CR? 


0351 


1032. 


0043 


43 








0 > <c 


10 33 


7026 


JMP 


QAD 




/NO 


ti 0 p 0 


1^34 


70 ?1 

' U Cm X 


JMP 


QACA +4 


/EXAMINE NEXT CHAR 












/INITIALIZE ANSWER BUFR 


*j \j •> j 


1235 


1343 


STH 


3 




/74 TO ANSWERS 


03 56 


1036 


1324 


LD H 


I 4 




/NEXT HALFWORD 


0357 


10 37 


11 20 


AD A 


I 






0360 


1040 


nu 


-6 0 








03 61 


10 41 


0017 


COM 








0362 


10 4 2 


40 06 


CTf 
O 1 U 


t> 

w 






0363 


1043 


13 63 


STH 


I 3 




/0 I N AC 


0364 


10 44 


0226 


XSK 


T 6 






03 65 


10 4 5 


7043 


J n r 


_ 0 

1 6. 






0366 


10 46 


1323 


LDH 


I 3 




/BUMP PTR TO ANSWERS 


0367 


10 4 7 


7 0 26 


JMP 


QAO 






03 70 












/ANSWER BUFR IS INITIATED 


0171 

O O / X 


1050 


1343 


QAE, STH 


3 






0372 


1051 


00 64 


SET 


I 4 




/XR4 TO PTR TO LAST TYPED CHAR IN ANSWER BUFR 


0 3 7 3 


105? 


,1 0 


0 




















/-.^--RE-ENTER HERE TO REFRESH 


0375 


1053 


1020 


QARFSH, LDA 


I 




/INITIAL Y POSITION 


Z3 76 


10 54 


02 7 7 


277 








03 77 


1 (A 5 5 


5113 


STC 


QAH-1 






0 4 00 


1 K 5 6 


0 0 6 3 


SET 


I 3 




/ XR3 TO PTR TO HALFWORD QUESTIONS-1 


PS 4 Pi 1 

*t U jL 


10 57 












0 4 02 


1. 0 6 0 


0 0 4 5 


SET 


5 




/XR5 TO PTR TO LAST DISPLAYED CHAR IN ANSWER BUFR 


04 03 


10 61 


1^52 


QARFSH-1 






0 4 0 4 


1 0 6 


00 41 


QA G « SET 


1 






04 05 


1 0 6 3 


0 0 03 


3 








04 06 


10 64 


72 70 


JMP 


QAT 






0 4 0 7 


10 6 5 


/ 0 7 4 


JMP 


,+7 




/F 


0 410 


10 6 6 


1 3 p_ 3 


LOH 


I 3 




/H , BUMP PTR 


0411 


1 0 6 7 


i : ! 2 0 


LDA 


I 




/NEITHER, ASSUME HALF SIZE 


0 4 1? 


1 ? 7 .'1 


15 6 0 


BCL 


I 






0 4 13 




•y 1 , 3 


STC 


QAM + 2 




/SET INSTR TO CLEAR FF FOR HALF SIZE 


0 414 






A 0 D 


DAW 




/NOP IN AC 


0415 


10 7 3 


'101 


JMP 


QAM 






0 410 


1 • 7 '5 


L -j 0 5 


LDH 


I 3 




/Bump ptr 


0417 


•' « y s 




LDA 


I 






0 4 20 


1 >' 7 0 


; i "2 ■< 


BSE 


I 






0 4 21 




1 J 0 


STC 


QAM + 2 




/SET INSTR TO SET FF FOR FULL SIZE 


04 22 


1100 


3513 


ADD 


QAW + 1 




/ADD 9U IN AC 


0423 


1 10 1 


S245 


CAM > STC 


QAP + 3 






04 24 


11 02 


0 0 2 4 


MSC 


I 4 




/E AD CONTROL REGISTER 



3 X > 5 


112 5 


1622 




BSE 


t 


/THIS I NSTR CHANGES, EITHER BSE * 


£» 4 0 7 
fc " t ' 


■tl25 

^ Xtr 


2204 




200 
MSC 


4 


/AC TO CONTROL REGISTER 


24 30 


1106 


006l 




SET 


I 1 


/XRj TO INITIAL X POSITION 


*- " w J. 


i 1 ^7 


2122 




12 0 






2 4 32 


1112 


12.20 




LO A 


I 


/ Y COORDINATE MULTIPLE 


6 " w O 


1111 


7 7 37 




-40 






2 4 34 


1112 


1 1 60 




AO M 


I 


H COORDINATE 


24 35 


1113 


2202 




2 






2436 


1114 


1323 


G AH , 


L.DH 


I 3 




'4 ^7 


1113 
x x x -' 


7 232 




JMP 


QAO*l ' 


/74 8UMP PTR TO NEXT CHAR, PUT 40 


0440 


1116 


7 3 01 




JMP 


QAZ 


4 4 1 

'Q •? -t X 


1117 


7136 




jMp 


QA J 


/34 


24 42 


1120 


14 20 




ShQ 


I 


/NEITHER 


2443 


1121 

X X *~ X 


4 3 00 




4300 




0 4 44 


1122 


7062 




JMP 


QAG 


/CR, MOVE X AND Y COORDINATE 




1123 


7242 




JMP 


QAP 


/ISPLAY CHAR 


? 4 4 4 


1 1 24 


' X. x ~ 




JMP 


QAH 


/PICK UP NEXT CHAR .. . 


r 4 4 4 "7 
el/ ** *t / 


1 1 25 
lit-' 


7242 




JMP 


QAP 


/TO HERE IF DISPLAYING ANSWER BUFR 


CI d *") (A 
V "> J i) 


112 6 


15 22 




SRO 


I /SWITCH 


TO DISPLAY CURSOR. EITHER 0000 OR 


C ^ X 


1127 


2202 








/IFXR4=XR5, THEN SWITCH*7777 


?4 5? 


1132 


7516 




JMP 


QAP 




24 53 












/QUESTION MODE 


04 5 4 


1131 


1325 


QA I , 


L3H 


I 5 




24 55 


1132 


7232 




J MP 


QAO+1 




2 4 56 


1133 


7114 




JMP 


QAH 


/74 


2 4 57 


1134 


7114 




JMP 


QAH 


/34 


oH OB 


X .1 >J J 


' X C y 




JM P 


QA 1-4 


/NEITHER. DISPLAY IT 


24 61 


11 36 


75 21 


QA J, 


JM P 


GE TK 80 


/TO HERE IF DISPLAYED BUFFER 


0 4 62 


11 37 


24 72 




A 2 £ 


I 




24 63 


1142 


7204 




JM P 


QA 8 /NOTHING 


TYPED , EXIT 


24 64 


11 41 


20 62 




SE T 


I 2 




24 65 


1142 


1 4 12 




QaY 






04 66 


1143 


14 02 




ShO 


2 


/LF? 


04 67 


11 44 


7311 




J M P 


GAK+4 


/YES, EXIT 


24 72 


1145 


1422 




SHQ 


I 2 


/CR? 


04 71 


1146 


7 2 23 




JMP 


QA N 




0 4 7 2 


1 •' 4 7 


02 06 




XS K 


6 


/IS THERE AN ANSWER FIELD? 


0473 


1 1 5 2 


7 2 5 3 




-J M p 


QARFSH 




04 74 


1151 


1422 




3H 0 


I 2 


/<? 


2 4 75 


1152 


7175 




JMP 


QAL 




24 76 


1133 


14 22 




SH 2 


1 2 


/>? 


2 4 7 7 


.1154 


7 325 




j M P 


OAK 




25 22 


112 5 


1422 




ShO 


I 2 


/ALT? 


j> - > v 


11 5c 


7 2l5 




J M P 


QA CA /REINITIALIZE 


2 5 2 2 


x 1 37 


1422 




SHO 


I 2 


/SACK SLASH? 


2p 2 3 


1162 


7 2 5 3 




J V 'P 


QARFSH 


/IGNORE 


2 5 24 


1 1 6 1 


l d 22 




SMQ 


I 2 


/RU80UT? 


25 25 


1162 


7175 




J V 'P 


QAL 


/IGNORE 


25 06 


11 oi 


1402 




ShQ 


I 2 


/T A3? 


: TC i "i 7 


■i 1 6 4 


7053 




jmP 


QARFSH 


/IGNORE 


2 512 


i i & 3 


3172 




S T C 


, + b 


/ACCEPTABLE CHAR 


0 5 11 


1166 


72 31 




JM? 


0AO 


/TEST NEXT CHAR 


2 5 1 2 


lit" 


/ 2 6 3 




J v ° 


QAG 


/74 BACK PTR UP BY 1 


2513 


1172 


7 2 5 3 




„ V P 


3 A Q 


/3 4 t 


2514 


11 7i 


13 22 




IDA 


I 


/OK, STORE IT 


0515 


1172 


22 22 




0 






25 ' c 


117 3 


13 4 4 




6TH 


4 






4 


7 2 5 3 




JMP 


QARFSH 


/REDISPLAY 

/TO HERE IF RUB8;f^0R < 


0522 




1324 


94 Li 


LOH 


4 


2 2 1 


7?76 


7 2 3 2 




j y P 


QA0*1 


25 22 


ll 7 7 


7 j53 




JMP 


QARFSH 


/74 IGNORE 






. 7 




-A p. 2? 





052 4 


1201 


1302 




LQH 


2 


/TEST THE CHAR 




12 02 


44 60 




SAE 


I 


/RUSOUT? .. .. _ . 


05?£ 


1203 


0037 




37 




/HQ, BACK PTrO BY 1 


-5 27 


1204 


7263 




JMP 


QAQ 


0 3 0 


1205 


1 )4? 




SET 


5 




05 31 

U •> J. 


1206 


d.)04 




4 






0532 

✓ V C 


1207 


3043 




SET 


3 




0533 


1212 


30 04 




4 






0! 5 ~4 4 

& •/ w ^ 


1 9*1 1 

X Cm X. X 


7213 




JMP 


,*2 




05 35 


1212 


1325 




LDH 


I 5 


/BUMP PTR . ... .... 


0336 


1213 


1323 




LQH 


I 3 


/GET NEXT CHAR 


61 ? w / 


1 ? 1 4 


7? 3? 




JMP 


QA 0* 1 




0540 

~ |y 


1215 


0016 




NOP 




/IF 74 OR 34, REPLACE CURRENT CHAR WITH 0 


0541 

xy V T J, 


' * 2iu 


0011 




CLR 






0542 

jtJ ^ ~ c 


1217 


1345 




STH 


5 




0543 


1 220 


04 50 




A2E 




/WAS IT 74 OR 34? 


05 44 


1 ? 21 


7212 

' c x C 




JMP 


. -7 


/NO. CONTINUE 


£3545 

if «< ~ -r 


1222 


7263 




JMP 


QAQ 


/BACK PTR UP BY 1 


f /t o 












/TO HERE IF CR 


05 4 7 


1 ??3 


0? 06 


QAM. 

W M IN # 


XSK 


6 






1224 


7311 

' V 4, J, 




JMP 


QAK + 4 


/EXIT ROUTINE IF NO ANSWER FIELD 


05 51 


1225 


72 31 




JMP 


QAQ 






1 ??6 
J. £- c u 


705"? 




JMP 


Q ARFSH 


/74 MOVE PTR TO NEXT QUESTION FIELD 


0553 


1227 


7051 




JMP 


QAE+1 


/34 END OF BUFR, MOVE PTR TO FIRST QUESTION 


0554 


1230 


7225 




JMP 


QAN+2 




0555 














V "* / w 


1231 


1324 


QA 0 » 


LDH 


I 4 


/S\R 


0557 


1232 


1420 




SHD 


I 


/ +1 74 BEGIN FIELD 


05 60 

j&J / U 


1233 


74 00 




7402 




/ +2 34 END BUFR 


0561 


1234 


6000 




JMP 


0 


/ +3 NEITHER 74 NOR 34 


05 62 


1235 


1460 




SAE 


I 




0563 


1236 


0034 




34 






0564 

V i< V ^ 


1237 


0220 




XSK 


I 0 




0565 


1240 


0220 




XSK 


I 0 




05 66 


1241 


6000 




JMP 


0 




05 £7 












/S\R TO OISP LINC CHAR IN AC 


05 70 


1242 


0241 


QAP, 


ROL 


1 


/MULT BY 2 FOR INDEX TO ADDRESS OF TABLE 


<7\*>1\ 

t) -f 1 X 


1243 


34 30 




ADD 


QAX + 4 




05 7 9 


12 4 4 






ST C 


2 


/ADDRESS OF CHAR TO DlSP IN XR2 


0573 


1245 


35 06.. 




ADD 


QAU 


/THIS INSTR CHANGES, EITHER OP OR ADD 9U 


05 74 


1246 


3506 




ADD 


QAU 




05 75 


1247 


2001 




ADD 


1 


/ADD 4 TO XR1 TO SPACE CHAR 


057 6 


1250 


4001 




S TC 


1 




0577 


12 51 


20 05 




ADD 


5 


/GET ADDRESS OF ANSWER BUFR 


0600 


1252 


0017 




COM 






0601 


1253 


2004 




ADD 


4 




0602 


1254 


0450 




AZE 






06 03 

Ifc^ V w w 


1255 


0011 




CL R 






0 6 0 4 
xj O iy ** 


1 ?56 


5127 




STC 


Q A I -2 


/SWITCH=0 OR 7777 


0 605 


1257 


3113 




ADD 


Q AH- 1 


/ Y COORDINATE IN AC 


0606 


1260 


174? 




DSC 


2 




0607 


1261 


17 62 




DSC 


I 2 


/DISPLAY CHAR 


0610 


126 2 


6000 




JMP 


0 




0 611 


1263 


10 20 


QAQ $ 


LD A 


J 


/BACK UP PTR BY 1 


0612 


126 4 


3777 




-4000 




0613 


1265 


1140 




ADM 






0614 


12 6 6 


0004 




4 






0615 


12 67 


7053 




JMP 


QARFSH 


/REDISPLAY 


0616 












/ 


0617 


1270 


1321 


QAT , 


LDH 


I 1 


/S\R 


0620 


1271 


1420 




SHD 


I 


/ *1 F 


0621 
m S? x 


1272 


06 00 




0600 


/ +2 H 


0622 


■ 1273 


6.000 




JMP 


0 


/ +3 NEITHER 



(71 A 9 1 


1 974 


1 4APi 




Q ait t 

«J n C I 






""AS' ... 




1 0 

.. - - 


01 A 9 C > 


A 71 ft 


$ ? P£Z 
1/ c £ ty 




X ^ K I 0 

Awn A V 


17i A 9 A 


19 77 


#920) 




A y A J iw 


PSA 97 

sy U £ > 


1 '7 ft 8 

J_ J It- r-* 


6 »3 iei 2 




JMP 0 


J2 Q 0 V 










IA A 1 1 
ly 0 0 X 


J. -- 1 iC' 4> 


- ? 1 




1 CM T 3 


^ A "X 9 
> C 0 £ 


' ? r s- 

4 j f £. 


" 0 i? 




L. L 1 H 1 


f* A "<! 7 


- 7 1/ ~ 
j. O K' C 


' ~ /; p. 






Pi A 14 

ISO J1 




' c. s 




JMP QA1-4 


01 A 1R 










fflA 1 A 
\p O 0 0 


1 ^ s; 5 


* 1 9 4 


W M r\ ^ 


t-U n i ' 


ICO 0 / 


1 t; i?5 A 
1 0 w 0 






'ltd i 


01 A 4 01 
it? 0 "tv 


•* £75 7 

x v3 ^ 


17 Al 




IMP D A Q 
1 1 1 1* n «. 


MA 41 


i V i V 


74 24 




JMP QAX 


M A 4 9 
lev v *» £ 










OSA dl 
|£J O *♦ O 


X «J J. x 


1 ?i P5I 




IDA T 

t_ U n 1 


CI A 4 4 


1312 


2 5i £5 1 




I 


M A 4 R 
15 O *t 9 


± O i, 0 


1 1 4? 

1A7<( 




ADM 


n> u a 


•1 1 4 
1 O X *♦ 


X * il 4 




n«D 
u m a 


0! A d 7 
fci O *f / 


1 11 b 


70 9i4 
/ *-> '/j "t 




'MP Q A R 


01 A ROI 
IS 0 9 it 1 










ffi A R 1 

W091 






Hi V . 

^'M V J 




01 A R9 
»3 o 9 4 


1117 


' ' 'CI 

x iu X 




0101 

X *^ Je 


k? 0 9 0 




4477 




4477 


WO P** 


1 1 91 
X u c X 


7744 




77 44 


f7l A K R 

k?o 99 


X -j c c 


J X 1 1 




51 77 


OlA KA 

SOP 50 




9a s;i 

wO 9X 






00 5/ 


1 1 94 
X^> fc" 


4""' 1A 




41 36 


f> A £. 01 


J. w £ ^ 


9? 4 1 




22 41 


t£> 0 O 1 


^ O u O 


4^ 77 




4177 


kio oc 


1 1 97 
X 0 <- ' 


1A 41 

w w 7A 




3641 


(71 A A X 

k30 Oo 


111 ?! 


4o 7 7 




4577 


0! A A4 


X w y x 


4' 45 




4145 


Oi A A R 
14' 0 O -J 


1 IIP 
x 0 ^ t. 


4477 




4477 


01 A A A 

k.o oo 


1 1 1 -i 

xo 00 


4 3 4 4 




4 p ; 4 4 


rt a a 7 
k3 0 0 / 


- 334 


4 J 1 A 




4136 


n\ a ~? 


■' "< l 5 ^ 


P 'j 4 5 




26 45 


4 7 1 
£ 0 / X 


- 1 A 
^. O v C 


1 "'77 




10 77 


rat 70 

aQ 1 4 


1 "? 17 
i j O / 


/ ■ X t ■ 




7710 


01 A 7 1 

ISO / o 


1 ? i 4 


7^41 




77 41 


If? 0 / *T 


1 1 4 


7 - 4 1 




00 41 


ic) 0 / 9 


1 3 42 


4 1 4 2 




4 142 


f7! 4 7 A 


-1 1 4 * 


4 7 7 C 




4 076 


b 0 / / 


1 < 4 4 
X j 1 ** 


x 7 7 7 




12 77 


f7' 7 I* r7t 


j. 0 ^ - 






4 3 24 


7 M 1 




■ '.7 77 




^177 


r* 7 1-* O 


•< s 4 7 

x - 7 ' 


* 1 . ••. 1 




03 01 


<T( 7 "1 7! 


1 O v. 


i 7 7 7 




30 77 


f>7C/ 

£J / W 4 


1 X - 

X -->--' i 


7 7 ■? > 
Oi. 




7730 


"7 pi c 


4. 0 c 


3 7 7 




3 0 7 7 


t 7 IH A 


■' X - 

L v - v 


? 7 ; ' A 




7 7 0 6 


K 1 / i" 1 


- 1 4 


■• 7 7 




<i 1 7 7 


V 1 XV 


- 3 / r 


. 7 




77 41 


1 X 1 


.1. 0 0 






4 4 77 




■' ^ b 7 


•,'■44 




304 4 




< ~. _ ■ 


-i r j> 




42 76 


f)7< -1 


X 0 ■- » 


s 3, 7 




03 76 


i.' ■' J. 9 


A ' 


.; 4 77 




44 77 


f> 7 1 A 
W / 1 0 




> •> d A 




3 1 4 6 


771 7 


W: 


' 7 1 




5121 


-> 7 O f> 








4 6 51 




_L J w T. 






4 0 4 0 



/TO HERE IF > 

/IS CURRENT CHAR BLANK? 

/YES 5 IGNORE 

/MOVE DOT FORWARD 

/TO HERE TO EXIT WITH SKIP 



/CHARACTER PATTERNS 

/KBD 0, ILLEGAL, USED AS MARKER 

/ISA 

/2:B 

/3 5C 

/4 :o 

/5SE 

/6iF 

/7 :G 

/10: H 

/ll J I 

/ 1 2 i J 

/l 3 ' K 
/ 1 4 f L 
/15 5m 
/ 1 6 : N 

/l 7 ! 0 

/2B : p 
/21 2 3 
/2 2? R 
/2 3! S 
/24S T 



072? 


1367 


40 77 




4 077 




0723 ^^ 

0724 gl 

1) I C J 


1.3 70 


0177 




0177 


y.25tU 


1371 


7701 




7701 




13 72 


0176 




0176 


/26! V 


*J 1 c o 


13 73 


7 4 02 




7402 




ay pi 


13 7 4 


26 77 




0677 


/27SW 


0 7 101 

i6 / G S6 


1375 


7 701 




7701 




?75 7 Tt 1 


1376 


1463 




1463 


/30J X 


0 7 1? 

it / O £ 


1377 


6314 




6314 






14 00 


07 70 




07 70 


/ 3 1 ; Y 


Q> 7 1 4 

fry / w *t 


1 4 £ 1 


7 0 07 




7007 




p; 7 3 5 


1 4 £ 2 


45 43 




4543 


/32s 2 


0 7 1 ft 

16 / O U 


1 403 

lit w 


6151 




6151 




07 37 


1.4 0.4 


4177 




4177 


/ 3 3 i / 


w / nB 


14 0 5 
X " c- f 


0 0 0 0 
v ky 16 




0000 

0 xj v ty 




7 £ 1 

W./ fX 










/34; BACKSLASH IGNORED ON INPUT 


PI 7 4? 


1 4 $ 6 


0000 




0 


/NOT USED 


. . jy / 7 0 


14 07 


0000 




0 


/NOT USED 


0744 


1410 


00 00 




00 00 


/35H 


71 7 4 c; 


14 11 


77 41 

/ ' t X 




77 41 




■■7, 7 A ft 










/CODES 36:ALT# 37:RUB0UT NOT DISPLAYED 


t?) 7 47 


1412 


4543 


QAY, 


4543 


/LF . CR 


7 50 


X " X w 


7^76 




74 76 


/< 1 > 


pi 7 51 


14 14 
x ^ x ~ 


36 34 




36 34 


/ALT, BACKSLASH 


t! / J C 


x ■ x 


3747 




37 47 


/RUBOUT, TAB 




l 4 16 


0000 




00 00 


/40 ! SPACE 




1417 






0000 




U I J. s 


1 4 20 

.X ~ v *■ 


75 00 




7500 


/41i X ! 


PI 7 5ft 


14 21 


00 00 




00 00 




07 57 


14 22 


70 00 




70 00 


/4 2 s » 


0 7 ft 1 


142 3 


0 3 70 




03 70 




1 7 1 
J ' j i 










/CODES 43*. » 44 *., 45: LE NOT DISPLAYED 


J' K 


1 4 ? 4 

A T - ~ 


7 2 32 


QAX 1 


j^jP QA0*1 




^7 a 1 


14 25 


72 63 




J M P Q A Q 




07 ft4 


14 26 


72 63 




JM P QA Q 




07 65 


14 27 


7 0 53 




J MP QARFS-H 




1? 7 ft a 


14 30 


1 3 1 6 




OA V 




0 7ft 7 


] q j 1 


0 0 0 0 




0 


/NOT USED 


0 7 73 


14 32 


5 .1 6 6 




5166 


/46! S 


7 7 1 


1 4 1 1 

X "» *J >J 


0 0 0 ft 

v. -* C *-J 




0 5 26 




Al 7 ? 
v lie. 










/CODE 47:TAB NOT DISPLAYED 


0 7 71 


14 3 4 


0 .300 






/NOT USED 


0 774 

il 1 1 H 


M35 


0 0 00 






/NOT USED 


07 75 


1 4 3 6 


3G 00 




36 00 


/50s ( 


0 7 7 ft 


1.437 


0 0 4 1 




0 041 




'£111 


14 4 0 


4100 




4100 


/51: ) 


1 0 0 0 

i, it; !CI ^ 


14 41 


0 0 3 0 




0036 




1 >- V X 


1 4 4 2 


2 0 5 0 




2050 


/52 1 * 


1 0 0 


14 43 


0 0 50 




0 0 50 




1 0 0 1 


14 44 


'4^4 




0' 4 04 


/5 3 5 ♦ 


1 CI ?! A 


14 4 5 


04 37 




04 37 




1 0 ^ 5 


14 4 6 


■'50 0 




05 00 


/54 : , 


1 ?■ 0ft 


1 4 4 7 






0 0 0 6 




1 007 




4 0 4 




0 4 04 


055 : - 


1 iTl 1 \7\ 


1 4 7 1 


v 4 0 4 




0 4 04 




1 0 1 1 


1 4 5 


0-^01 




0 0 01 


/56 : . 




- ^ ^ 


'. • V ' * ' 




•' • ' 0 0 






, 1 ^ 5 4 






00 01 


/5 7 : \ 


1 0 1 4 

-i. u J. *t 


1 4 '.1 5 


40 3£ 




4030 




1015 


1 4 5 b 


4 5 36 




4 536 /60!0 




1016 


1457 


3 6 51 




3o 5l 






14 60 

X ■ ^ 


2101 




2101 


/6U l 


i fl* *3 J"3I 


1 il ft 1 


(71 1 7 7 




vM 7 7 





1 (7191 
1 Vic. 1 


1 4ft 9 

X *T 'J C 


459^ 

f iS- O 




4523 




/62 12 


l* 3 <££ 


1 4 ftl 
1 "< o o 


91 51 

<£ X 9X . 


_ 


91 51 






1 9i 9 % 
X M 4 0 


14 6 4 


41 ?9 
^ X c. c 




41 22 

■X ^ 




/63S3 




1 4 ft 5 


96 51 

(1 w J J. 




2651 

c y < 






1 i?i 9 c; 


1 4 ft ft 
X t v O 


2414 




2414 




/ 6 4 X 4 


1 51 9ft 
XV cO . 


1 4 ft? 

X ' Q ' 


04 77 




04 77 






1 91 9 7 
Jl u C I 


14 70 


517? 




51 72 




/65S5 




14 71 


6 5 1 




0 6 51 






1 .9! ~< 1 


X 7 / c. 


1 5 7\ A 




15 06 




/66 J 6 


1 i9l "? 9 

1 <y o £ 


14 73 


49 95 

<£ - 1 




4??5 






Xio oo 


14 7 4 


4 4 4 3 




4443 




/ 6 7 : 7 


1 (7I 4 


X ** ' 


ft 9! 5 91 




6050 






11009 


14 76 


51 ?ft 

x c o 




5126 


/70:8 


1 i7l "K A 


14 77 


9ft5i 
i- o > X 




?6 51 






1 01 7 
X V 0 1 


1 5 (71 7! 
x > & o 


5195 
X t- C- 




5122 




/ 7 1 ! 0 


1 (71 4 (71 
X 10 *t 


i hffli 

X X 


3651 




3651 






X 7 X 


< 5 7!? 

X J V.' (1 


22 00 




22 00 




✓ 7 2 J « 
tie.** 


1 ■?> 4 9 
X & H £ 


1 5 713 


tJ fj 1/ V 




0000 






1 51 4 ^ 


X ✓ f ~ 


4 6 01 




46 01 




f r 0 • 1 


1044 


. 1 9 v > 


!7i -7, 9H 
>y '/J ^ i^J 




01 (71 01 01 
# v 10 It* 






X 13 *t 9 












/rnnr 74 : <mot displayed 


1 Dl d A 


"i K 0 6 


7i I?) (71 9 




? 

c, 




/fflMCT 4IJT 


1 91 <4 7 


1 ~ 91 7 
X j sJ ' 


7 7 17 7, 

jU <Ci li 




0 


/ INU 1 


U3LU 


•1 (71 ^ 91 
X«3 9x3 


1 5 1 SI 

X -7 X l- 


1 ? 1 ? 




1212 




/ 7 5 • = 


•1 91 ~* "1 

11091 


1 R 1 1 
X 9 X X 


1 ? 1 9 
x £ X t 




1 ? 1 9 
X £ X e. 






•1 91 R9 

X i5 ?£ 












,. . . fUUut f 0 * S IHUl. U 13 ~ W A 1-t.U - - - 


X<o 9 0 


1912 


d i/1 1 ft 

W KJ J_ w 


n A u » 


M n P 






lis 9<+ 


15 11 
X J XO 


15 9ift 




API n DA U 






1 i'7l 

Xl0 99 




40 ?i7i 




40 20 




/77J ? 


1 3 56 


1 5 1 5 

X ~ X 


2^ 55 




20 55 






1 71 57 






/ 








X>v 0^) 


1^16 

X •> X l -> 


1 7 ft /! 


n a r 


ns r 1 

O O A 






1 91 A 1 
Xs0 OX 


1=17 


60 00 




60 00 






1 a ft? 


1 5 ? f ! 
x 


7131 




JM P QA I 






1 (71 A "X 
1 10 O 0 






/ 

/ 








1 (7* A4 

X 10 0 *T 












/END 0+A 


1 f 1 A 5 
1 '6 u ^ 






/ 








1 iTi ft ft 






/ 








1 (7. ft 7 

X <6 O / 






/ 








1 7 (7! 
X 10 / 10 






/ 








1 '/, 7 1 






/KEYBOARD INPUT 


ROUTINE 


1 9! 7 9 
lo' / Z 






/ 








1 "A 7 "i 
I/ 1 ' O 






QAKR6= 


6036 


/POP- 


8 IOT KBD 


i 91 7 4 






QA TSF = 


6041 


/TSF 




"1 'A 7 K 
X «. / 9 






QA'TLS = 


604ft 


/TLS 




1 7i 7 ft 

x iy / o 






/ 








1 ?i 7 7 




-I v -' VL- 


GETKBD 


. IDA 






1 X 10 tJ 


1 5 ? ? 


?! ?, 10 




0 






A 1 '"A 1 

11 31 


,. 9 £ o 


? 6 4 3 




STC QAEXIT+6 


/SAVE RETURN 


lit"/: 




? ^ i7i 1 

C I0 X 




ADD 1 




/SAVE XRS 1 AND 2 




■•; S ? 9 


5ft 491 




STC QAEXIT+3 




1104 


1 ✓ £3 


a ■ • 0 

— ' t • c 




ADD 2 






1 X v- 9 


9 £ / 


56 4 ? 




STC QAEXIT+5 




1 1 0 6 


.!. 0 L 


? 6 3 6 




STC QA E 


X IT +1 




1 1 '<> 7 




t-" 1 1 j 




KST 


/WAS 


SOMETHING TYPED? 


111/1 




^ ? ,; H'' 




JMP 0 




/NO! EXIT 


•1111 
1 X 1 x 








103 






1112 








QAKRB 


/GET 


TTY CHAR; CLEAR FLAG 


X 1 10 








ST A I 




/SAVE IT 


I 1 1 4 

II 1*T 


W,7 


*J )Cj C' 


QA T Y , 


0 






1 X X 9 


7 - " -'. 


- c. t 




ADA I 






11 lo 


1 r? 






-237 




/BETWEEN 200 AND 237? 


1 1 i 7 


l 9 4 I 


9) 4 5 1 




APO 





4 1 ~J ' / 

lid It' 


x > *" £- 


7 <••• d 
- v= t; «t 




IMP GAPMTP 


/rONTROL THAR. CHECK FOR 


1121 






/ 






1122 




5 A 




crT T 1 
ot i i 1 


J M n 
/ N U 


.1123 


^^^^ ^ 


1 0 5H 




n a ru a P » 1 
UAUnAr\~i 




112** 




M / A 5 




or T T 5 




1125 


x 5 4 v 


77 7 .71 
/ •■ / C 




_ 7 




112 6 


15 4/ 


X K- ! t ! 




L u A 




-f -1 7 7 

112 / 


.15 5 1 


4 R A 
1 v 0 0 




OA TV 




llo*> 




14 61 




JHL i X 




11 31 


15 5c: 


7 t c 4 

/ 5 5 4 




J M P 1 + 2 




1132 


15 53 


76 35 




iMD ftACV I T 

jnH U a La i 1 




1133 




•1777 
<-c.ee 




XSK I 2 /CHECKED THEM ALL? 


1104 


i S R s 
A 5 v 


7 7 R 1 
/ ■> 5 x 




JMP .-4 




4 4 *Z K 






/ 






1136 


15 5 0 


1 1 d£ 




ADA I 




1137 


j c ^ 7 

15 5' 


"7 A A f* 

/ 4 4k 




-337 




1140 


15 6? 


34 51 




APO 


/BETWEEN 240 AND 337? 


ll^l 


7 K A 7 

x 5.0,1 


7 c; 7 k 




JMP QALEGL 


/YES. LEGAL CHAR 


1142 










/NO, CHECK FURTHERt 


.11 4 3 


1 ^ A o 
15 0 C 


4 A A 7 
It 01 




SAE I 1 


1144 


4 A "< 

15 0 0 


7 7 7 O 
/ 5 / <£ 




JMP ,+7 




4 4 AK 

.11 .45 




1 (7 5i7 
if tlf 




LDA I 


/RUBOUT 


1146 


15 6 5 






334 




.1147 


1 ;> 6 6 


7 A A A 

1 0 *T *f 




JMP QATPE 


/ECHO BACKSLASH 


11 510 


7 S A 7 
1-70/ 


7 71 7 

1 £ e. *> 




LO A I 




,11 51 


15/ «-■■ 






37 




«4 4 C 7 

11 5£ 


7 7 7 1 
1 3 / x 


7 h 1 7 




JMP QAEXIT+2 


/LEGAL EXIT 


4 4 tr t 

-11 50 






/ 






4 4 EC A 

1154 


15 / £ 


4 / £4 

X ^ 01 




SAE I 1 




.1155 


15/3 


7£7C 

/0 05 




JMP QAEXIT 


/ILLEGAL 


11 56 










/ALT 


.115/ 


.. A 5 ' 7 


7 A 7 




JMP QAEXIT+2 


/EXIT* DONT ECHO 


1160 






f 






.Hoi 


.... ... . J5 / 5 




DAI PTl . 
UA L* wu » 


LDA. 




116*: 


«S £i 7 *v 

15/0 


4 & 7£ 

1500 




GATY 




1X63 


1 = 77 

.1 5/7 


7A A A 
1 O H «t 




JMP QATPE 


/ECHO CHAR 


1164 


16 00 


"7 c: -7 
OP 00 




ADD QATY 




1165 


X 0 t> A 


1 ci A a 
X 5 Ok) 




BCL I 


yOTOTQ 1 T Tn £_D 1 T 


1166 


4 ic ? o 
1 6 • t <£ 


7 7 m f 




77 0# 




,«1 167 


1 A 5' ^ 

..... .1.6. * 0 


7 A "<7 
/ O 0 / 




JMP .Q.AfcXIJ+2 


"■*« - 


4 4 Til 

11 /V3 






/to ur DC 
/ 1 U ML Kt 


. IF CONTROL 


CHAR 


11 '1 


. 10 k4 


1 4AM 

15 Ojc 


n A PMTB 
U A.VN 1 " » 


SAE I 




4 no 
11 '2 


4 A R 
1 0 b 5 


77 Rc; 
' / 55 




77CC 
/ / 55 




1 4 It 

_21Xo 


l.o *..o 


/ O < 1 




.JMP QACKLF 




4 4 7/ 

1 1 ' 4 


1 A OS 7 

lot./ 


•1 5? 0 




LO A I 


/CR 


4 4 7 f\ 


1 A 4 !? 


Oil?. At 

.. .. i3.».Sg. 




43 


• ■ ■-- ■ ■ • •■ •. 


4 1 7 A 

11 ' o 


1 0 1 X 


R A "t A 
3000 




STC QAEXIT+1 




-11// 


4 £4 9 

... 10 1«S 







LDA. I 


- - - - ■ - 


' 4 7" ffl 0! 

1200 


4 £4 7. 

1010 


IJT4 C 

«3C 1 5 




215 




r .l,<£wl 


■*i A 1 4 

. 10 i*t 


1 O t 




JMP QATPE 




< OHO 


1 A 1 K 
X 0 i 5 


1 a n /ti 

x <0 x3 




LDA I 




■1 5 017 


1 A 1 A 

1.0.1.0. 


y 0 4 0 

.... 14 




.212 




, 1204 


4 A 4 7 

10 1/ 


7£ 4 < 

/ 0 4 4 




JMP QATPE 




4 7 (TiR 


1 A 5 

x O e ij 


7 A 7 R 




JMP QAEXIT 




4 9 Ot A 






/ 








1 A O 7 

. loci 


14 60 


U A UI\Lr t 


SA.E.I 




4 n 4 (X 

12 10 


4 £77 

16 cc 


77C7 

/ / 52 




77 52 




4 *> 4 4 


4 A 5 "X 

., JLCLit a. 


7A 07 

.. '9.6 / 


■ - -~ - 


JMP ,*4 




4*1 4' 7 

Idle 


4 A O 4 


i ^ 7 171 

1 »3 <i W 




LDA I 


/LF 


^2-14 


4 £7!; 

1« « 5. . 


-JflSff.4_5_ . 


-- - 


45 






*'A^A 
IOCS 


/oil 




JMP QACNTR+5 




JU&Sl - 








.S,AE.._I — 






. ...... 







1217 


1631 


7635 




JMP QaEX IT /ILLEGAL 


JL220 


1632 


1020 




LDA I 


1221 


16 33 


004 7 




47 


1222 


1634 


7637 




jr.p QAEXIT*2 'EXIT, DONT ECHO 


1223 






/ 




1224 


.1635 


13 20 


QAEXIT , 


LDA I /GET 6-B I T ASCII 


1225 


16 36 


0000 




0 


1226 


1637 


0 361 




SET I 1 /RESTORE XRS 


1227 


1&40 


0000 




!? 


1230 


1641 


0062 




SET I 2 


1231 


1642 


0000 






1232 


1643 


6000 




JMP /EXIR S\R GETKBQ 


1233 






/S\R TO 


PRINT C(AC5 


1234 


1644 


0500 


QATPEj 


I OB 


1235 


1645 


6046 




QATLS /PDP-8 IOT TLS 


1236 


1646 


1000 




LDA 


1237 


16 47 


00 00 




0 


1240 


1650 


5654 




STC ,+4 /SAVE RETURN 


1241 


1651 


0500 




I OB 


12 42 


1652 


6041 




GATSF /WAIT FOR FLAG 


12 43 


1653 


7651 




JMP ,-2 


1244 


1654 


60 00 




JMP /EXIT 


1245 






/ 




1246 


1655 


0243 


QACHAR » 


243 /HASH 


1247 


1656 


02 44 




244 /DOLLAR SIGN 


1250 


1657 


0245 




245 /PER CENT 


1251 


16 60 


02 47 




247 /APOSTROPHE 


1252 


16 61 


03 00 




30 0 /AT SIGN 


12 53 


16 62 


03 36 




33 6 /UP ARROW 


12 54 


16 63 


03 37 




33 7 /BACK ARROW 


12 55 


1664 


00 40 




40 /RUB OUT 


12 56 


16 65 


00 36 




36 /ALT 


1257 






/END OF 


S\R GETKBD 



AAAE.ND 


4322 


ANS.WD 


4 24 1 


ANSI 


4307 


ANS.2 


4312 


ANS3 


4315 


ANS4 


4 320 


CHKSNS 


4130 


DECODE 


4 2 2' 0 


GETKBD 


5521 


LOC 


4 23 3 


LOCT IX 


423 4 


LOOP 


4113 


MESS1 


4032 


MESS 2 


4. 0 5 7 


MESS3 


4137 


MESS 4 


.4.160 


NXTCHR 


420 5 


QAB 


5004 


QACA 


5015 


QACHAR 


5655 


QACKLF 


5621 


QACNTR 


5604 


QAD 


5 02 6 


QAE 


5050 


QAEX IT 


5635 


QAF 


5516 


QAG 


5 06 2 



2 AH >ii4 

QA I 5.13 4- 
QAINITW0 

QAJ 

QAK 5305 

QAKRB 6236.. 

QAL 5175 

QALEGL >^75 

QAM 3101 

QAN 5223... 

QAO 52.51 

QAP 5242 

QAQ 5263 
QARF.SH. 5 05 3 

QAT 5270 

-OA-TLS: 6 04 6 

QATPE 5644 

. QATSF 6041 

QATY 5536 

QAU 5506 

QA V 5316 

Q.AW . .5512 

QAX 5424 

QA Y 5412 

QA2 5301 

START. 4024.. 

TEMP 4232 

I.P.WD1 .405,5 

TPWD2 4176 

TXT1 4242 

TXT2 4246 

TXT3 4252 

TXT4 4267 
X1TMS1 4056. 

XITMS2 4127 

XITMS3 4157 

XITMS4 4177 



